home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Almathera Ten Pack 3: CDPD 3
/
Almathera Ten on Ten - Disc 3: CDPD3.iso
/
ab20
/
ab20_archive
/
games
/
strategy
/
madgic-corewar-4.0.lzh
/
1988
/
sieve.s
< prev
next >
Wrap
Text File
|
1989-10-04
|
819b
|
24 lines
;Sieve
;by Dirk Wolff-Klammer
;West Germany
;
A DAT 0
START MOV < COUNT, DEST
;
JMZ LEND, COUNT
MOV # 16, A
LOOP MOV @ A, < DEST
DJN LOOP, A
SPL @ DEST
JMZ START, A
LEND MOV # 7, COUNT
JMZ START, A
COUNT DAT 7
DAT 125
DAT 250
DAT 500
DAT 1000
DAT 2000
DAT 4000
DEST DAT 0
END START